home *** CD-ROM | disk | FTP | other *** search
- (welcome "Welcome to the installation utility for AssignMaster.")
-
- (if (= (askbool (prompt "A T T E N T I O N !\n\n"
- "An older version of AssignMaster should be completely "
- "removed (including all save files) before installing new "
- "Version 1.4.\n\n"
- "Continue installing AssignMaster?")
- (help @askbool-help)
- (default 1)
- ) 0)
- (
- (exit (cat "\n\nUser break installation procedure. "
- "No files are copied.")
- (quiet)
- )
- )
- )
-
- (set #destination_prg (askdir (prompt "Please select destination drawer "
- " for AssignMaster executable.")
- (help @askdir-help)
- (default "SYS:Tools")
- )
- )
-
-
- (set #destination_doc (askdir (prompt "Choose the destination for "
- "the documentation file.")
- (help @askdir-help)
- (default "HELP:")
- )
- )
-
- (set #libcopy (askbool (prompt "Will you install the support.library for "
- "AssignMaster?\n\nYou only need it to handle "
- "the startup files, but this feature won't "
- "work correctly!")
- (help @askbool-help)
- (default 0)
- )
- )
-
- (copyfiles (prompt "Copy executable...")
- (help @copyfiles-help)
- (source "/AssignMaster")
- (dest #destination_prg)
- (files)
- (confirm)
- (infos)
- )
-
- (copyfiles (prompt "Copy english documentation...")
- (help @copyfiles-help)
- (source "/docs/AM_Eng.GUIDE")
- (dest #destination_doc)
- (newname "AssignMaster.guide")
- (files)
- (confirm)
- (infos)
- )
-
- (copyfiles (prompt "Copy history text...")
- (help @copyfiles-help)
- (source "/docs/AM_History.txt")
- (dest #destination_doc)
- (newname "AssignMaster.History")
- (files)
- (infos)
- (confirm)
- )
-
- (if (= 1 #libcopy)
-
- (copylib (prompt "Copy support.library...")
- (help @copyfiles-help)
- (source "/libs/amsupport.library")
- (dest "LIBS:")
- )
- )
-
- (if (= 1 (askbool (prompt "The following function is only useable for later "
- "installation of AssignMaster in the 'startup-sequence'.\n\n"
- "Should the current assign-list saved now?\n\n"
- "If you not sure, select \"No\".")
- (help @askbool-help)
- (default 0)
- (choices "Ja" "Nein")
- )
- )
- (
- (set #savefile (askfile (prompt "Select path and name of savefile now.")
- (help @askfile-help)
- (default #destination_prg)
- )
- )
- (set #amcommand (cat (tackon #destination_prg "AssignMaster")
- " BACKUP=\""
- #savefile
- "\"")
- )
- (run #amcommand (prompt (cat "Saving current assign list into file:\n"
- #savefile)
- )
- (help @run-help)
- (confirm)
- )
- )
- )
-
- (exit (cat "Installation complete.\n\n")
- (quiet)
- )
-
-